﻿Module Module1
  Sub Main()

    Dim i As Integer             ' variabile di ciclo
    Dim out As String = ""       ' risultato da visualizzare
    Dim arrMesi() As String = {"Gennaio", _
        "Febbraio", "Marzo", "Aprile", "Maggio", _
        "Giugno", "Luglio", "Agosto", "Settembre", _
        "Ottobre", "Novembre", "Dicembre"}
    For i = 0 To 11
      out &= arrMesi(i)
      ' aggiunge un ritorno a capo:
      out &= Environment.NewLine
    Next
    Console.WriteLine(out)
    Console.ReadLine()

  End Sub
End Module
